home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 25 / Mac Magazin and MacEasy Magazine CD - Issue 25.iso / Spiele & Edutainment / Abuse Demo / lisp / chat.lsp < prev    next >
Lisp/Scheme  |  1996-08-01  |  569b  |  16 lines
  1. (enable_chatting)
  2.  
  3. (defun chat_input (str)
  4.   (if (and (> (length str) 0) (equal (elt str 0) #\/))
  5.       (if (and (search "/nick " str) (> (length str) 6))
  6.       (chat_print (concatenate 'string "# " (player_name) " is known as "
  7.                    (progn (set_player_name (substr 6 (- (length str) 1) str))
  8.                       (player_name))))
  9.     (if (search "/help" str)
  10.         (if (local_player) 
  11.         (chat_print "Commands : /nick name, /help"))
  12.     (if (local_player)
  13.         (chat_print (concatenate 'string "unknown command " str)))))
  14.  
  15.     (chat_print (concatenate 'string "<" (player_name) "> " str))))
  16.